home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / xes.lha / XES / REXX / SaveWords.xdme < prev    next >
Text File  |  1995-08-24  |  921b  |  41 lines
  1. /* $VER: SaveWords.xdme 1.1 (24 Aug 1995) */
  2. /* Saves words to user dictionaries */
  3.  
  4. udict = strip(getenv("UDict"))
  5. udict.low = word(udict, 1)
  6. udict.mix = word(udict, 2)
  7. IF RIGHT(udict.low, 4) = ".mix" THEN DO
  8.     buf = udict.low
  9.     udict.low = udict.mix
  10.     udict.mix = udict.low
  11. END
  12.  
  13. CALL Open(outlow,"T:low","W")
  14. CALL Open(outmix,"T:mix","W")
  15. OPTIONS RESULTS
  16. i = 0
  17. DO FOREVER
  18.     v = "$(List2/#" || i || "/*Name*)"
  19.     com = "rxresult" v
  20.     com
  21.     r = RESULT
  22.     IF r = v THEN LEAVE
  23.     /* Lowercase letters have bit 5 set. Uppercase don't. */
  24.     IF BITTST(LEFT(r,1), 5) THEN
  25.         CALL writeln outlow, r
  26.     ELSE
  27.         CALL writeln outmix, r
  28.     i = i + 1
  29. END
  30. CALL CLOSE outmix
  31. CALL CLOSE outlow
  32.  
  33. com = "AlphaSpell -Lco" udict.low udict.low "T:Low"
  34. SAY com
  35. ADDRESS COMMAND com
  36. com = "AlphaSpell -Lco" udict.mix udict.mix "T:Mix"
  37. SAY com
  38. ADDRESS COMMAND com
  39. /* CALL DELETE "T:Mix" */
  40. /* CALL DELETE "T:Low" */
  41.